home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / graphic / ncuerm10.zip / GLOBAL.TXT < prev    next >
Text File  |  1994-04-14  |  7KB  |  160 lines
  1. Global ToolStatus As String
  2. Global SelectObject As String
  3. Global A_filename As String, temp_filename As String
  4. Global SaveOrLoad As String
  5. Global CurrentNo As Integer
  6. Global DataText(1 To 1000) As Integer, MaxText As Integer
  7. Global DataLine(1 To 1000) As Integer, MaxLine As Integer
  8. Global DataRectangle(1 To 1000) As Integer, MaxRectangle As Integer
  9. Global DataRoundrectangle(1 To 1000) As Integer, MaxRoundrectangle As Integer
  10. Global DataCircle(1 To 1000) As Integer, MaxCircle As Integer
  11. Global DataDiamond(1 To 1000) As Integer, MaxDiamond As Integer
  12.  
  13. Sub DiamondDraw (S As Control, ByVal i As Integer)
  14.     main.Diamond(i).Visible = False
  15.     main.Diamond1(i * 4).X1 = S.Left + S.Width / 2: main.Diamond1(i * 4).Y1 = S.Top
  16.     main.Diamond1(i * 4 + 1).X1 = S.Left: main.Diamond1(i * 4 + 1).Y1 = S.Top + S.Height / 2
  17.     main.Diamond1(i * 4 + 2).X1 = main.Diamond1(i * 4).X1: main.Diamond1(i * 4 + 2).Y1 = S.Top + S.Height
  18.     main.Diamond1(i * 4 + 3).X1 = S.Left + S.Width: main.Diamond1(i * 4 + 3).Y1 = main.Diamond1(i * 4 + 1).Y1
  19.     main.Diamond1(i * 4).X2 = main.Diamond1(i * 4 + 1).X1: main.Diamond1(i * 4).Y2 = main.Diamond1(i * 4 + 1).Y1
  20.     main.Diamond1(i * 4 + 1).X2 = main.Diamond1(i * 4 + 2).X1: main.Diamond1(i * 4 + 1).Y2 = main.Diamond1(i * 4 + 2).Y1
  21.     main.Diamond1(i * 4 + 2).X2 = main.Diamond1(i * 4 + 3).X1: main.Diamond1(i * 4 + 2).Y2 = main.Diamond1(i * 4 + 3).Y1
  22.     main.Diamond1(i * 4 + 3).X2 = main.Diamond1(i * 4).X1: main.Diamond1(i * 4 + 3).Y2 = main.Diamond1(i * 4).Y1
  23.     main.Diamond1(i * 4).Visible = True
  24.     main.Diamond1(i * 4 + 1).Visible = True
  25.     main.Diamond1(i * 4 + 2).Visible = True
  26.     main.Diamond1(i * 4 + 3).Visible = True
  27.     main.Diamond1(i * 4).BorderStyle = main.Diamond(i).BorderStyle
  28.     main.Diamond1(i * 4).BorderWidth = main.Diamond(i).BorderWidth
  29.     main.Diamond1(i * 4 + 1).BorderStyle = main.Diamond(i).BorderStyle
  30.     main.Diamond1(i * 4 + 1).BorderWidth = main.Diamond(i).BorderWidth
  31.     main.Diamond1(i * 4 + 2).BorderStyle = main.Diamond(i).BorderStyle
  32.     main.Diamond1(i * 4 + 2).BorderWidth = main.Diamond(i).BorderWidth
  33.     main.Diamond1(i * 4 + 3).BorderStyle = main.Diamond(i).BorderStyle
  34.     main.Diamond1(i * 4 + 3).BorderWidth = main.Diamond(i).BorderWidth
  35. End Sub
  36.  
  37. Sub DisableTool ()
  38.     Select Case ToolStatus$
  39.       Case "pointer":
  40.         tools.toolPointerOFF.Visible = True
  41.         tools.toolPointerON.Visible = False
  42.       Case "text":
  43.         tools.toolTextOFF.Visible = True
  44.         tools.toolTextON.Visible = False
  45.       Case "line":
  46.         tools.toolLineOFF.Visible = True
  47.         tools.toolLineON.Visible = False
  48.       Case "rectangle":
  49.         tools.toolRectangleOFF.Visible = True
  50.         tools.toolRectangleON.Visible = False
  51.       Case "roundrectangle":
  52.         tools.toolRoundRectangleOFF.Visible = True
  53.         tools.toolRoundRectangleON.Visible = False
  54.       Case "circle":
  55.         tools.toolCircleOFF.Visible = True
  56.         tools.toolCircleON.Visible = False
  57.       Case "diamond":
  58.         tools.toolDiamondOFF.Visible = True
  59.         tools.toolDiamondON.Visible = False
  60.     End Select
  61. End Sub
  62.  
  63. Sub DotAllHide ()
  64.     main.Dot1.Visible = False
  65.     main.Dot2.Visible = False
  66.     main.DotLU.Visible = False
  67.     main.DotLD.Visible = False
  68.     main.DotRU.Visible = False
  69.     main.DotRD.Visible = False
  70. End Sub
  71.  
  72. Sub FileSave ()
  73.     On Error GoTo ERR_SAVE
  74.     Dim FileNum, i As Integer
  75.     Dim tempInt As Integer
  76.     Dim tempStr As String
  77.     FileNum = FreeFile
  78.  
  79.     Screen.MousePointer = 11 'Wait Icon
  80.     Open A_filename For Output Access Write As FileNum
  81.     Write #FileNum, "MacbearERModel1.0 "
  82.     'Write Diamond Data
  83.     tempInt = 0
  84.     For i = 1 To MaxDiamond
  85.       If DataDiamond(i) = 1 Then tempInt = tempInt + 1
  86.     Next i
  87.     Write #FileNum, tempInt
  88.     For i = 1 To MaxDiamond
  89.       If DataDiamond(i) = 1 Then Write #FileNum, main.Diamond(i).BorderStyle, main.Diamond(i).BorderWidth, main.Diamond(i).Height, main.Diamond(i).Left, main.Diamond(i).Top, main.Diamond(i).Width
  90.     Next i
  91.  
  92.     'Write Circle Data
  93.     tempInt = 0
  94.     For i = 1 To MaxCircle
  95.       If DataCircle(i) = 1 Then tempInt = tempInt + 1
  96.     Next i
  97.     Write #FileNum, tempInt
  98.     For i = 1 To MaxCircle
  99.       If DataCircle(i) = 1 Then Write #FileNum, main.Circle1(i).BorderStyle, main.Circle1(i).BorderWidth, main.Circle1(i).Height, main.Circle1(i).Left, main.Circle1(i).Top, main.Circle1(i).Width
  100.     Next i
  101.  
  102.     'Write Roundrectangle Data
  103.     tempInt = 0
  104.     For i = 1 To MaxRoundrectangle
  105.       If DataRoundrectangle(i) = 1 Then tempInt = tempInt + 1
  106.     Next i
  107.     Write #FileNum, tempInt
  108.     For i = 1 To MaxRoundrectangle
  109.       If DataRoundrectangle(i) = 1 Then Write #FileNum, main.RoundRectangle1(i).BorderStyle, main.RoundRectangle1(i).BorderWidth, main.RoundRectangle1(i).Height, main.RoundRectangle1(i).Left, main.RoundRectangle1(i).Top, main.RoundRectangle1(i).Width
  110.     Next i
  111.     
  112.     'Write Rectangle Data
  113.     tempInt = 0
  114.     For i = 1 To MaxRectangle
  115.       If DataRectangle(i) = 1 Then tempInt = tempInt + 1
  116.     Next i
  117.     Write #FileNum, tempInt
  118.     For i = 1 To MaxRectangle
  119.       If DataRectangle(i) = 1 Then Write #FileNum, main.Rectangle1(i).BorderStyle, main.Rectangle1(i).BorderWidth, main.Rectangle1(i).Height, main.Rectangle1(i).Left, main.Rectangle1(i).Top, main.Rectangle1(i).Width
  120.     Next i
  121.     
  122.     'Write Line Data
  123.     tempInt = 0
  124.     For i = 1 To MaxLine
  125.       If DataLine(i) = 1 Then tempInt = tempInt + 1
  126.     Next i
  127.     Write #FileNum, tempInt
  128.     For i = 1 To MaxLine
  129.       If DataLine(i) = 1 Then Write #FileNum, main.Line1(i).BorderStyle, main.Line1(i).BorderWidth, main.Line1(i).X1, main.Line1(i).X2, main.Line1(i).Y1, main.Line1(i).Y2
  130.     Next i
  131.  
  132.     'Write Text Data
  133.     tempInt = 0
  134.     For i = 1 To MaxText
  135.       If DataText(i) = 1 Then tempInt = tempInt + 1
  136.     Next i
  137.     Write #FileNum, tempInt
  138.     For i = 1 To MaxText
  139.       If DataText(i) = 1 Then
  140.         Write #FileNum, main.Text1(i).FontBold, main.Text1(i).FontItalic, main.Text1(i).FontName, main.Text1(i).FontSize, main.Text1(i).FontStrikethru, main.Text1(i).FontUnderline, main.Text1(i).Height, main.Text1(i).Left, main.Text1(i).Top, main.Text1(i).Width
  141.         Write #FileNum, main.Text1(i).Text
  142.       End If
  143.     Next i
  144.     SaveOrLoad$ = "SaveSuccess"
  145.  
  146. OVER_SAVE:
  147.     Close FileNum
  148.     Screen.MousePointer = 0 'Default Icon
  149.     Exit Sub
  150. ERR_SAVE:
  151.     Screen.MousePointer = 0 'Default Icon
  152.     If Right$(CurDir$, 1) = "\" Then tempStr$ = "" Else tempStr$ = "\"
  153.     MsgBox CurDir$ + tempStr$ + A_filename$ + " file created error", 48, "Error Message"
  154.     A_filename$ = temp_filename$
  155.     SaveOrLoad$ = "SaveFailure"
  156.     Resume OVER_SAVE
  157.  
  158. End Sub
  159.  
  160.